home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / robin10.arc / ROBIN-EX.SUB < prev    next >
Encoding:
Text File  |  1987-01-05  |  1.2 KB  |  48 lines
  1. ;                   ROBIN-EX.SUB    "Round Robin Dialer"
  2. ;                                 by
  3. ;                           Samuel Smulowitz
  4. ;                          CENTURY ASSOCIATES
  5. ;                          141-04 71st Avenue
  6. ;                          Flushing, N.Y. 11367
  7. ;
  8. ;
  9. START:
  10. CONNECTED:
  11.   ALARM 2
  12. ;
  13. ;
  14. CONNECT-MSG1:
  15.   CLEAR
  16.   MESSAGE"     ╔════════════════════════════════════════════════╗"
  17.   MESSAGE"     ║  End Round Robin. Sucessfully connected to:    ║"
  18.   MESSAGE"     ║                                                ║"
  19.   MESSAGE"     ╚════════════════════════════════════════════════╝"
  20.   LOCATE 2,20
  21.   MESSAGE S0
  22. ;
  23. USER-ROUTINES:
  24.   SET RDELAY 30                    ; SET TO 0 IN "ROBIN-SV.SUB"
  25.   LOG OPEN "ROBIN.LOG"             ; OPEN SPECIAL LOG.
  26.   SWITCH S0
  27.     CASE "1-212-555-1257"
  28.       WAITFOR "I.D." 20
  29.       TRANSMIT "2373"
  30.       WAITFOR "CODE" 20
  31.       TRANSMIT "123KR!"
  32.       WAITFOR "Main Menu Comm"
  33.       TRANSMIT "EB"
  34.       GOTO EXIT
  35.     ENDCASE
  36.     CASE "(0)203-555-7944"
  37.       MLOAD "SPL.KEY"
  38.       GOTO  EXIT
  39.     ENDCASE
  40.     CASE "555-5212"
  41.       EXECUTE "AMTU-BBS.SUB"
  42.     ENDCASE
  43.   ENDSWITCH
  44. GOTO EXIT:
  45. ;
  46. ;
  47. EXIT:
  48.   EXIT